sFileName := '.\' +ExtractFilenameonly(Application.ExeName)+ '.ini';